Public Class frmManHinhChinh

    Private Sub LapPhieuTheuPhongToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LapPhieuTheuPhongToolStripMenuItem.Click
        Dim frm As New frmLapPhieuThuePhong
        frm.ShowDialog()
    End Sub

    Private Sub TinhTienThuePhongToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LapHoaDonPhongToolStripMenuItem.Click
        Dim frm As New frmTinhTienThuePhong
        frm.ShowDialog()
    End Sub

    Private Sub TraCuuKhachThuePhongToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TraCuuKhachThuePhongToolStripMenuItem.Click
        Dim frm As New frmTraCuuKhachHang
        frm.ShowDialog()
    End Sub

    Private Sub ThoatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThoatToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click

        Dim frm As New AboutBox
        frm.ShowDialog()

    End Sub

    Private Sub frmManHinhChinh_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.Image = System.Drawing.Image.FromFile(Application.StartupPath + "\\KhachSan.jpg")
        PictureBox1.Visible = True

        HeThongToolStripMenuItem.Enabled = False
        TraCuuKhachThuePhongToolStripMenuItem.Enabled = False
        LapBaoCaoThongKeToolStripMenuItem.Enabled = False
        LapHoaDonPhongToolStripMenuItem.Enabled = False
        TraCuuKhachThuePhongToolStripMenuItem.Enabled = False
        LapPhieuTheuPhongToolStripMenuItem.Enabled = False


    End Sub

    Private Sub LapBaoCaoThongKeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LapBaoCaoThongKeToolStripMenuItem.Click

        Dim frm As New frmBCTK
        frm.ShowDialog()
    End Sub

    Private Sub ChinhSua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinhSua.Click
        Dim frm As New frmChinhSuaHeThong
        frm.showdialog()
    End Sub

    Private Sub HelpToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem1.Click

        System.Diagnostics.Process.Start("Help\Help.chm")

    End Sub

    Private Sub DangNhapToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DangNhapToolStripMenuItem.Click
        Dim frm As New frmDangNhap()
        frm.ShowDialog()

        If frm.Status = True Then
            HeThongToolStripMenuItem.Enabled = True
            TraCuuKhachThuePhongToolStripMenuItem.Enabled = True
            LapBaoCaoThongKeToolStripMenuItem.Enabled = True
            LapHoaDonPhongToolStripMenuItem.Enabled = True
            TraCuuKhachThuePhongToolStripMenuItem.Enabled = True
            LapPhieuTheuPhongToolStripMenuItem.Enabled = True
        End If
    End Sub
End Class
